home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / rhstdlib.arc / PUTS.ASM < prev    next >
Encoding:
Assembly Source File  |  1990-10-20  |  446 b   |  25 lines
  1. stdlib        segment    para public 'slcode'
  2.         assume    cs:stdlib
  3.         extrn    sl_putc:far
  4. ;
  5. ; Puts prints the string that ES:DI points at to the std output.
  6. ;
  7. ;
  8.         public  sl_puts
  9. sl_Puts         proc    far
  10.         push    di
  11.         push    ax
  12.         jmp     short PStart
  13. ;
  14. PutsLp:         call    sl_Putc
  15. PStart:         mov    al, es:[di]
  16.         inc    di
  17.         cmp     al, 0
  18.         jnz     PutsLp
  19.         pop     ax
  20.         pop     di
  21.         ret
  22. sl_Puts         endp
  23. stdlib        ends
  24.         end
  25.